/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF.  The full HDF copyright notice, including       *
 * terms governing use, modification, and redistribution, is contained in    *
 * the COPYING file, which can be found at the root of the source code       *
 * distribution tree, or in https://support.hdfgroup.org/ftp/HDF/releases/.  *
 * If you do not have access to either file, you may request a copy from     *
 * help@hdfgroup.org.                                                        *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*-----------------------------------------------------------------------------
  FUNCTION NAMING CONVENTION:(For the most part true)
  ---------------------------------------------------
  This file contains the HDF-style C stubs for the Vxxx interfaces i.e.
  both Vgroups and Vdatas. They call the corresponding C-functions for
  the Vxxx interfaces.

  The basic routines called by fortran will be of the form vfxxx.
-----------------------------------------------------------------------------*/

/*
 *
 * vgf.c
 * Part of the HDF VSet interface.
 *
 * C routines (short names) to be called from fortran
 *
 *
 *********************************************************************** */

#include "hdf_priv.h"
#include "vg_priv.h"
#include "hproto_fortran.h"

/*
 **  remove trailing blanks from a string. input argument is a  string
 **  and *MUST* be a variable and not a constant!! For internal use only!!
 **  Used only on Crays where the Fortran compiler will pad strings to the
 **  nearest 8-byte boundary.
 */

void
trimendblanks(char *ss)
{
    int32 i, n;

    n = (int32)strlen(ss);
    for (i = n - 1; i >= 0; i--) {
        if (ss[i] != ' ') {
            ss[i + 1] = '\0';
            break;
        }
    }
}

/* ================================================== */
/*  VGROUP routines                                   */
/* ================================================== */

/*-----------------------------------------------------------------------------
 * Name:    dfivopn
 * Purpose: Fortran stub for dfvopen to call DFvsetopen to open HDF file
 * Inputs:  name: name of file to open
 *          access: access mode - integer with value DFACC_READ etc.
 *          defdds: default number of DDs per header block
 *          namelen: length of name
 * Returns: 0 on success, -1 on failure with error set
 * Users:   HDF Fortran programmers
 * Invokes: Hopen
 * Method:  Convert filename to C string, call Hopen
 *---------------------------------------------------------------------------*/

intf
ndfivopn(_fcd name, intf *acc_mode, intf *defdds, intf *namelen)
{
    char *fn;
    intf  ret;

    fn = HDf2cstring(name, (int)*namelen);
    if (!fn)
        return FAIL;
    ret = (intf)Vopen(fn, (int)*acc_mode, (int16)*defdds);
    free(fn);
    return ret;
} /* end ndfivopn() */

/*-----------------------------------------------------------------------------
 * Name:    dfvclos
 * Purpose: Call DFvsetclose to close HDF file
 * Inputs:  file_id: handle to HDF file to close
 * Returns: 0 on success, FAIL on failure with error set
 * Users:   HDF Fortran programmers
 * Invokes: Hclose
 *---------------------------------------------------------------------------*/

intf
ndfvclos(intf *file_id)
{
    return Vclose((int32)*file_id);
} /* ndfvclos() */

/*
 **  attach to a vgroup and returns its ptr
 **  related: Vattach--vatchc--VFATCH
 */

intf
nvatchc(intf *f, intf *vgid, _fcd accesstype)
{
    int32 vkey;
    char *acc;

    acc = HDf2cstring(accesstype, 1);
    if (!acc)
        return FAIL;

    vkey = Vattach((int32)*f, *vgid, acc);
    free(acc);

    return (intf)vkey;
}

/* ------------------------------------------------------------------ */

/*
 **  detach from a vgroup
 **  related: Vdetach--vdtchc--VFDTCH
 */

intf
nvdtchc(intf *vkey)
{
    return Vdetach(*vkey);
}
/* ------------------------------------------------------------------ */

/*
 **  get the name of a vgroup
 **  related: Vgetname--vgnamc--VFGNAM
 */

intf
nvgnamc(intf *vkey, _fcd vgname)
{
    return Vgetname(*vkey, _fcdtocp(vgname));
} /* VGNAMC */

/* ------------------------------------------------------------------ */
/*
 **  get the class name of a vgroup
 **  related: Vgetclass--vgclsc--VFGCLS
 */

intf
nvgclsc(intf *vkey, _fcd vgclass)
{
    return Vgetclass(*vkey, _fcdtocp(vgclass));
} /* VGCLSC */

/* ------------------------------------------------------------------ */
/*
 **  general inquiry on a vgroup
 **  related: Vinquire--vinqc--VFINQ
 */

intf
nvinqc(intf *vkey, intf *nentries, _fcd vgname)
{
    return (intf)Vinquire(*vkey, (int32 *)nentries, _fcdtocp(vgname));
} /* VINQC */

/* ------------------------------------------------------------------ */
/*
 **  delete a vgroup from a file
 **  related: Vdelete--vdelete--
 */

intf
nvdelete(intf *f, intf *vkey)
{
    return (intf)Vdelete((int32)*f, (int32)*vkey);
} /* nvdelete */

/* ------------------------------------------------------------------ */
/*
 **  gets the id of the next vgroup in the file
 **  related: Vgetid--vgidc--VFGID
 */

intf
nvgidc(intf *f, intf *vgid)
{
    return (intf)Vgetid((int32)*f, *vgid);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the id of the next entry in the vgroup
 **  related: Vgetnext--vgnxtc--VFGNXT
 */

intf
nvgnxtc(intf *vkey, intf *id)
{
    return Vgetnext(*vkey, *id);
}

/* ------------------------------------------------------------------ */
/*
 **  sets the name of the vgroup
 **  related: Vsetname--vsnamc--VFSNAM
 */

intf
nvsnamc(intf *vkey, _fcd vgname, intf *vgnamelen)
{
    char *name;
    intf  ret;

    name = HDf2cstring(vgname, (int)*vgnamelen);
    if (!name)
        return FAIL;
    /* trimendblanks(name); */
    ret = (intf)Vsetname(*vkey, name);
    free(name);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  sets the class name of the vgroup
 **  related: Vsetclass--vsclsc--VFSCLS
 */

intf
nvsclsc(intf *vkey, _fcd vgclass, intf *vgclasslen)
{
    char *tclass;
    intf  ret;

    tclass = HDf2cstring(vgclass, (int)*vgclasslen);
    if (!tclass)
        return FAIL;
    /* trimendblanks(tclass); */
    ret = (intf)Vsetclass(*vkey, tclass);
    free(tclass);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  inserts a vset object (ie a vgroup or vdata ptr) into the given vgroup
 **  related: Vinsert--vinsrtc--VFINSRT
 */

intf
nvinsrtc(intf *vkey, intf *vobjptr)
{
    return (intf)Vinsert(*vkey, *vobjptr);
}

/* ------------------------------------------------------------------ */
/*
 **  tests if a vset object (having id id) in a vgroup refers to a vgroup
 **  related: Visvg--visvgc--VFISVG
 */

intf
nvisvgc(intf *vkey, intf *id)
{
    return (intf)Visvg(*vkey, *id);
}

/* ------------------------------------------------------------------ */
/*
 **  wrapper for Vstart
 */

intf
nvfstart(intf *f)
{
    return Vstart((int32)*f);
} /* nvfstart */

/* ------------------------------------------------------------------ */
/*
 **  wrapper for Vend
 */

intf
nvfend(intf *f)
{
    return (intf)Vend((int32)*f);
} /* nvfend */

/* ------------------------------------------------------------------ */
/*
 **  tests if an id in a vgroup refers to a vdata
 **  related: Visvs--visvsc--VFISVS
 */

intf
nvisvsc(intf *vkey, intf *id)
{
    return (intf)Visvs(*vkey, *id);
}

/* ================================================== */
/*  VDATA routines                                    */
/* ================================================== */

/*
 **  attach to a vdata and returns its ptr
 **  related: VSattach--vsatchc--VFATCH
 */

intf
nvsatchc(intf *f, intf *vsid, _fcd accesstype)
{
    /* need not HDf2cstring since only first char is accessed. */
    return VSattach((int32)*f, *vsid, _fcdtocp(accesstype));
}

/* ------------------------------------------------------------------ */
/*
 **  detach from a vdata
 **  related: VSdetach--vsdtchc--VFDTCH
 */

intf
nvsdtchc(intf *vkey)
{
    return VSdetach(*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  get the ref # of a vdata
 **  related: VSQueryref--vsqref--
 */

intf
nvsqref(intf *vkey)
{
    return (intf)VSQueryref((int32)*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  get the tag # of a vdata
 **  related: VSQuerytag--vsqtag--
 */

intf
nvsqtag(intf *vkey)
{
    return (intf)VSQuerytag((int32)*vkey);
}

/* ----------------------------------------------------------------- */
/*
 **  get the version # of a vdata
 **  related: VSgetversion--vsgver--
 */

intf
nvsgver(intf *vkey)
{
    return (intf)VSgetversion((int32)*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  seeks to a given element position in a vadata
 **  related: VSseek--vsseekc--VSFSEEK
 */

intf
nvsseekc(intf *vkey, intf *eltpos)
{
    return (intf)VSseek(*vkey, *eltpos);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the name of a vdata
 **  related: VSgetname--vsgnamc--VSFGNAM
 */

intf
nvsgnamc(intf *vkey, _fcd vsname, intf *vsnamelen)
{
    char *tvsname = NULL;
    int   status;

    /* Allocate space for fortran strings */
    tvsname = (char *)malloc(*vsnamelen + 1);
    if (!tvsname)
        HRETURN_ERROR(DFE_NOSPACE, FAIL);

    status = VSgetname(*vkey, tvsname);

    /* convert C-string results back to Fortran strings */
    HDpackFstring(tvsname, _fcdtocp(vsname), (int)*vsnamelen);
    free(tvsname);

    return status;
} /* VSGNAMC */

/* ------------------------------------------------------------------ */
/*
 **  get the class name of a vdata
 **  related: VSgetclass--vsgclsc--VSFGCLS
 */

intf
nvsgclsc(intf *vkey, _fcd vsclass, intf *vsclasslen)
{
    char *tvsclass = NULL;
    int   status;

    /* Allocate space for fortran strings */
    tvsclass = (char *)malloc(*vsclasslen + 1);
    if (!tvsclass)
        HRETURN_ERROR(DFE_NOSPACE, FAIL);

    status = VSgetclass(*vkey, tvsclass);

    /* convert C-string results back to Fortran strings */
    HDpackFstring(tvsclass, _fcdtocp(vsclass), (int)*vsclasslen);
    free(tvsclass);

    return status;
} /* VSGCLSC */

/* ------------------------------------------------------------------ */
/*
 **  general inquiry on a vdata
 **  related: VSinquire--vsinqc--VSFINQ
 */

intf
nvsinqc(intf *vkey, intf *nelt, intf *interlace, _fcd fields, intf *eltsize, _fcd vsname, intf *fieldslen,
        intf *vsnamelen)
{
    char *tfields = NULL;
    char *tvsname = NULL;
    int   status;
    int32 tnelt, til, teltsz;

    /* Allocate space for fortran strings */
    tfields = (char *)malloc(*fieldslen + 1);
    if (!tfields)
        HRETURN_ERROR(DFE_NOSPACE, FAIL);
    tvsname = (char *)malloc(*vsnamelen + 1);
    if (!tvsname) {
        free(tfields);
        HRETURN_ERROR(DFE_NOSPACE, FAIL);
    }

    /* the following contains error for nelt, interlace and eltsize */
    /* if int32 and intf are different in size. */
    status = VSinquire(*vkey, &tnelt, &til, tfields, &teltsz, tvsname);
    if (status != FAIL) {
        *nelt      = tnelt;
        *interlace = til;
        *eltsize   = teltsz;
        /* convert C-string results back to Fortran strings */
        HDpackFstring(tfields, _fcdtocp(fields), (int)*fieldslen);
        HDpackFstring(tvsname, _fcdtocp(vsname), (int)*vsnamelen);
    }
    free(tfields);
    free(tvsname);

    return status;
} /* VSINQC */

/* ------------------------------------------------------------------ */
/*
 **  tests if given fields exist in the vdata
 **  related: VSfexist--vsfexc--VSFEX
 */

intf
nvsfexc(intf *vkey, _fcd fields, intf *fieldslen)
{
    intf  ret;
    char *flds;

    flds = HDf2cstring(fields, (int)*fieldslen);
    if (!flds)
        return FAIL;
    /* trimendblanks(flds); */
    ret = (int32)VSfexist(*vkey, flds);
    free(flds);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  looks for a named Vdata in a file
 **  related: VSfind--vsfndc--VSFFND
 */

intf
nvsfndc(intf *f, _fcd name, intf *namelen)
{
    intf  ret;
    char *cname;

    cname = HDf2cstring(name, (int)*namelen);
    if (!cname)
        return FAIL;
    /* trimendblanks(flds); */
    ret = (intf)VSfind(*f, cname);
    free(cname);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  gets the id of the next vdata from the file
 **  related: VSgetid--vsgidc--VSFGID
 */

intf
nvsgidc(intf *f, intf *vsid)
{
    return (intf)VSgetid(*f, *vsid);
}

/* ------------------------------------------------------------------ */
/*
 **  removes the vdata with id from the file
 **  related: VSdelete--vsdltc--VSFDLTE
 */

intf
nvsdltc(intf *f, intf *vsid)
{
    return (intf)VSdelete(*f, *vsid);
}

/* ------------------------------------------------------------------ */
/*
 **  make it possible to append unlimitedly to an existing vdata
 **  related: VSappendable--vsapp--
 */

intf
nvsapp(intf *vkey, intf *blk)
{
    return (intf)VSappendable((int32)*vkey, (int32)*blk);
}

/* ------------------------------------------------------------------ */
/*
 **  sets the name of a vdata
 **  related: VSsetname--vssnamc--VSFSNAM
 */

intf
nvssnamc(intf *vkey, _fcd vsname, intf *vsnamelen)
{
    char *name;
    intf  ret;

    name = HDf2cstring(vsname, (int)*vsnamelen);
    if (!name)
        return FAIL;
    /* trimendblanks (name); */
    ret = (intf)VSsetname(*vkey, name);
    free(name);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  sets the class name of the vdata
 **  related: VSsetclass--vssclsc--VSFSCLS
 */

intf
nvssclsc(intf *vkey, _fcd vsclass, intf *vsclasslen)
{
    char *tclass;
    intf  ret;

    tclass = HDf2cstring(vsclass, (int)*vsclasslen);
    if (!tclass)
        return FAIL;
    /* trimendblanks(tclass); */
    ret = (intf)VSsetclass(*vkey, tclass);
    free(tclass);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  sets the fields in a vdata for reading or writing
 **  related: VSsetfields--vssfldc--VSFSFLD
 */

intf
nvssfldc(intf *vkey, _fcd fields, intf *fieldslen)
{
    char *flds;
    intf  ret;

    flds = HDf2cstring(fields, (int)*fieldslen);
    if (!flds)
        return FAIL;
    /* trimendblanks(flds); */
    ret = (int32)VSsetfields(*vkey, flds);
    free(flds);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  sets the file interlace of a vdata
 **  related: VSsetinterlace--vssintc--VSFSINT
 */

intf
nvssintc(intf *vkey, intf *interlace)
{
    return (intf)VSsetinterlace(*vkey, *interlace);
}

/* ------------------------------------------------------------------ */
/*
 **  defines a new field to be used in the vdata
 **  related: VSfdefine--vsfdefc--VSFFDEF
 */

intf
nvsfdefc(intf *vkey, _fcd field, intf *localtype, intf *order, intf *fieldlen)
{
    intf  ret;
    char *fld;

    fld = HDf2cstring(field, (int)*fieldlen);
    if (!fld)
        return FAIL;
    /* trimendblanks(fld); */
    ret = (int32)VSfdefine(*vkey, fld, *localtype, *order);
    free(fld);
    return ret;
}

/*-----------------------------------------------------------------------------
 * Name:    vssextfc
 * Purpose: store data of a Vdata in an external file
 * Inputs:  id: vdata id
 *          name: name of external file
 *          offset: Number of bytes from the beginning of the
 *                    external file to where the data starts
 *          namelen: length of name
 * Returns: 0 on success, -1 on failure with error set
 *---------------------------------------------------------------------------*/

intf
nvssextfc(intf *id, _fcd name, intf *offset, intf *namelen)
{
    char *fn;
    intf  ret;

    fn = HDf2cstring(name, *namelen);
    if (!fn)
        return FAIL;
    ret = (intf)VSsetexternalfile(*id, fn, *offset);
    free(fn);
    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  returns the number of fields in a vdata
 **  related: VFnfields--vfnflds--
 */

intf
nvfnflds(intf *vkey)
{
    return (intf)VFnfields((int32)*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  get the name of a given field in a vdata
 **  related: VFfieldname--vffname--vffnamec
 */

intf
nvffnamec(intf *vkey, intf *index, _fcd fname, intf *len)
{
    char *fieldname = NULL;

    if ((fieldname = VFfieldname((int32)*vkey, (int32)*index)) != NULL) {
        /* strcpy(_fcdtocp(fname),fieldname);*/
        HDpackFstring(fieldname, _fcdtocp(fname), (int)*len);
        /* free(fieldname); */
        return SUCCEED;
    }
    else
        return FAIL;
} /* vffnamec */

/* ------------------------------------------------------------------ */
/*
 **  get the number-type of a given field in a vdata
 **  related: VFfieldtype--vfftype--
 */

intf
nvfftype(intf *vkey, intf *index)
{
    return (intf)VFfieldtype((int32)*vkey, (int32)*index);
} /* vfftype */

/* ------------------------------------------------------------------ */
/*
 **  get the internal (in memory) size of a given field in a vdata
 **  related: VFfieldisize--vffisiz--
 */

intf
nvffisiz(intf *vkey, intf *index)
{
    return (intf)VFfieldisize((int32)*vkey, (int32)*index);
} /* vffisiz */

/* ------------------------------------------------------------------ */
/*
 **  get the external (on disk) size of a given field in a vdata
 **  related: VFfieldesize--vffesiz--
 */

intf
nvffesiz(intf *vkey, intf *index)
{
    return (intf)VFfieldesize((int32)*vkey, (int32)*index);
} /* vffesiz */

/* ------------------------------------------------------------------ */
/*
 **  get the order of a given field in a vdata
 **  related: VFfieldorder--vffordr--
 */

intf
nvffordr(intf *vkey, intf *index)
{
    return (intf)VFfieldorder((int32)*vkey, (int32)*index);
} /* vffordr */

/* ------------------------------------------------------------------ */
/*
 **  reads records from a vdata into a char buffer
 **  related: VSread--vsfrdc
 */

intf
nvsfrdc(intf *vkey, _fcd cbuf, intf *nelt, intf *interlace)
{
    return (intf)VSread(*vkey, (uint8 *)_fcdtocp(cbuf), *nelt, *interlace);
}
/* ------------------------------------------------------------------ */
/*
 **  reads records from a vdata into integer buffer
 **  related: VSread--vsfrd
 */

intf
nvsfrd(intf *vkey, intf *buf, intf *nelt, intf *interlace)
{
    return (intf)VSread(*vkey, (uint8 *)buf, *nelt, *interlace);
}

/* ------------------------------------------------------------------ */
/*
 **  reads from a vdata
 **  related: VSread--vsreadc--VSFREAD
 */

intf
nvsreadc(intf *vkey, uint8 *buf, intf *nelt, intf *interlace)
{
    return (intf)VSread(*vkey, buf, *nelt, *interlace);
}

/* ------------------------------------------------------------------ */
/*
 **  writes to a vdata from a char buffer
 **  related: VSwrite--vsfwrtc
 */

intf
nvsfwrtc(intf *vkey, _fcd cbuf, intf *nelt, intf *interlace)
{
    return (intf)VSwrite(*vkey, (uint8 *)_fcdtocp(cbuf), *nelt, *interlace);
}

/* ------------------------------------------------------------------ */
/*
 **  writes to a vdata from an integer buffer
 **  related: VSwrite--vsfwrt
 */

intf
nvsfwrt(intf *vkey, intf *buf, intf *nelt, intf *interlace)
{
    return (intf)VSwrite(*vkey, (uint8 *)buf, *nelt, *interlace);
}

/* ------------------------------------------------------------------ */
/*
 **  writes to a vdata
 **  related: VSwrite--vswritc--VSFWRIT
 */

intf
nvswritc(intf *vkey, uint8 *buf, intf *nelt, intf *interlace)
{
    return (intf)VSwrite(*vkey, buf, *nelt, *interlace);
}

/* ======================================== */
/* miscellaneous VDATA inquiry routines */
/* ======================================== */
/* undocumented */

/* ------------------------------------------------------------------ */
/*
 **  gets the interlace of the vdata
 **  related: VSgetinterlace--vsgintc--VSFGINT
 */

intf
nvsgintc(intf *vkey)
{
    return (intf)VSgetinterlace(*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the number of elements in the vdata
 **  related: VSelts--vseltsc--VSFELTS
 */

intf
nvseltsc(intf *vkey)
{
    return (intf)VSelts(*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the fields in the vdata
 **  related: VSgetfields--vsgfldc--VSFGFLD
 */

intf
nvsgfldc(intf *vkey, _fcd fields)
{
    return (intf)VSgetfields(*vkey, _fcdtocp(fields));
} /* VSGFLDC */

/* ------------------------------------------------------------------ */
/*
 **  determines the (machine) size of the given fields
 **  related: VSsizeof--vssizc--VSFSIZ
 */

intf
nvssizc(intf *vkey, _fcd fields, intf *fieldslen)
{
    char *flds;
    intf  ret;

    flds = HDf2cstring(fields, (int)*fieldslen);
    if (!flds)
        return FAIL;
    /* trimendblanks(flds); */
    ret = VSsizeof(*vkey, flds);
    free(flds);
    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  determines the no of entries in a vgroup
 **  related: Ventries--ventsc--VFENTS
 */

intf
nventsc(intf *f, intf *vgid)
{
    return (intf)Ventries(*f, *vgid);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the refs of all lone vgroups in the file
 **  related: Vlone--vlonec--VFLONE
 */

intf
nvlonec(intf *f, intf *idarray, intf *asize)
{
    return (intf)Vlone(*f, (int32 *)idarray, (int32)*asize);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the refs of all lone vdatas in the file
 **  related: VSlone--vslonec--VSFLONE
 */

intf
nvslonec(intf *f, intf *idarray, intf *asize)
{
    return VSlone(*f, (int32 *)idarray, (int32)*asize);
}

/* ------------------------------------------------------------------ */
/*
 **  gets the ref # of a vgroup for a given name
 **  related: Vfind--vfindc--VFIND
 */

intf
nvfindc(intf *f, _fcd name, intf *namelen)
{
    char *tmp_name;
    intf  ret;

    tmp_name = HDf2cstring(name, (int)*namelen);
    if (!tmp_name)
        return FAIL;

    ret = (intf)Vfind((int32)*f, tmp_name);
    free(tmp_name);

    return ret;
} /* end nvfindc() */

/* ------------------------------------------------------------------ */
/*
 **  gets the ref # of a vgroup for a given class
 **  related: Vfindclass--vfclassc--VFNDCLS
 */

intf
nvfndclsc(intf *f, _fcd vgclass, intf *classlen)
{
    char *t_class;
    intf  ret;

    t_class = HDf2cstring(vgclass, (int)*classlen);
    if (!t_class)
        return FAIL;

    ret = (intf)Vfindclass((int32)*f, t_class);
    free(t_class);

    return ret;
} /* end nvfndclsc() */

/*
 ** ==================================================================
 ** HIGH-LEVEL VSET ROUTINES --- VHxxxxx()
 ** ==================================================================
 */

/*----------------------------------------------------------
 **  store a simple dataset in a vdata
 **  related: VHstoredata--vhsdc--vhfsd
 */

intf
nvhsdc(intf *f, _fcd field, uint8 *buf, intf *n, intf *datatype, _fcd vsname, _fcd vsclass, intf *fieldlen,
       intf *vsnamelen, intf *vsclasslen)
{
    char *fld, *name, *tclass;
    intf  ret_val;

    fld = HDf2cstring(field, (int)*fieldlen);
    if (!fld)
        return FAIL;
    name = HDf2cstring(vsname, (int)*vsnamelen);
    if (!name) {
        free(fld);
        return FAIL;
    }
    tclass = HDf2cstring(vsclass, (int)*vsclasslen);
    if (!tclass) {
        free(fld);
        free(name);
        return FAIL;
    }

    ret_val = (intf)VHstoredata(*f, fld, buf, *n, *datatype, name, tclass);
    free(fld);
    free(name);
    free(tclass);

    return ret_val;
}

/*----------------------------------------------------------
 **  store a simple char dataset in a vdata
 **  related: VHstoredata--vhscdc--vhfscd
 */

intf
nvhscdc(intf *f, _fcd field, _fcd cbuf, intf *n, intf *datatype, _fcd vsname, _fcd vsclass, intf *fieldlen,
        intf *vsnamelen, intf *vsclasslen)
{
    if ((*datatype != DFNT_CHAR) && (*datatype != DFNT_UCHAR))
        return FAIL;
    return nvhsdc(f, field, (uint8 *)_fcdtocp(cbuf), n, datatype, vsname, vsclass, fieldlen, vsnamelen,
                  vsclasslen);
}

/* ------------------------------------------------------------------ */
/*
 **  store an aggregate char dataset in a vdata
 **  related: VHstoredatam--vhscdmc--vhfscdm
 */

intf
nvhscdmc(intf *f, _fcd field, _fcd cbuf, intf *n, intf *datatype, _fcd vsname, _fcd vsclass, intf *order,
         intf *fieldlen, intf *vsnamelen, intf *vsclasslen)
{
    if ((*datatype != DFNT_CHAR) && (*datatype != DFNT_UCHAR))
        return FAIL;
    return nvhsdmc(f, field, (uint8 *)_fcdtocp(cbuf), n, datatype, vsname, vsclass, order, fieldlen,
                   vsnamelen, vsclasslen);
}

/* ------------------------------------------------------------------ */
/*
 **  store an aggregate dataset in a vdata
 **  related: VHstoredatam--vhsdmc--vhfsdm
 */

intf
nvhsdmc(intf *f, _fcd field, uint8 *buf, intf *n, intf *datatype, _fcd vsname, _fcd vsclass, intf *order,
        intf *fieldlen, intf *vsnamelen, intf *vsclasslen)
{
    char *fld, *name, *tclass;
    intf  ret_val;

    fld = HDf2cstring(field, (int)*fieldlen);
    if (!fld)
        return FAIL;
    name = HDf2cstring(vsname, (int)*vsnamelen);
    if (!name) {
        free(fld);
        return FAIL;
    }
    tclass = HDf2cstring(vsclass, (int)*vsclasslen);
    if (!tclass) {
        free(fld);
        free(name);
        return FAIL;
    }

    ret_val = (intf)VHstoredatam(*f, fld, buf, *n, *datatype, name, tclass, *order);
    free(fld);
    free(name);
    free(tclass);

    return ret_val;
}

/* ------------------------------------------------------------------ */
/*
 **  make a new vgroup given several tag/ref pairs
 **  related: VHmakegroup--vhmkgpc--vhfmkgp
 */

intf
nvhmkgpc(intf *f, intf *tagarray, intf *refarray, intf *n, _fcd vgname, _fcd vgclass, intf *vgnamelen,
         intf *vgclasslen)
{
    char *gname, *gclass;
    intf  ret_val;

    gname = HDf2cstring(vgname, (int)*vgnamelen);
    if (!gname)
        return FAIL;
    gclass = HDf2cstring(vgclass, (int)*vgclasslen);
    if (!gclass) {
        free(gname);
        return FAIL;
    }

    ret_val = (intf)VHmakegroup(*f, (int32 *)tagarray, (int32 *)refarray, *n, gname, gclass);
    free(gname);
    free(gclass);

    return ret_val;
}

/* ================================================================== */
/*
 **  locate a field in a vdata that belongs to this VGROUP
 **  related: Vflocate--vffloc--vflocc
 */

intf
nvflocc(intf *vkey, _fcd field, intf *fieldlen)
{
    char *fld;
    intf  ret;

    fld = HDf2cstring(field, (int)*fieldlen);
    if (!fld)
        return FAIL;
    /* trimendblanks(fld); */
    ret = (int32)Vflocate(*vkey, fld);
    free(fld);

    return ret;
}

/* ------------------------------------------------------------------ */
/*
 **  tests if a tag/ref pair is in a vgroup.
 **  related: Vinqtagref--vinqtrc--vfinqtr
 */

intf
nvinqtrc(intf *vkey, intf *tag, intf *ref)
{
    return (intf)Vinqtagref(*vkey, *tag, *ref);
}
/* ------------------------------------------------------------------ */
/*
 **  gets the number of tag/refs stored in a vgroup
 **  related: Vntagrefs--vntrc--VFNTR
 */

intf
nvntrc(intf *vkey)
{
    return (intf)Vntagrefs(*vkey);
}

/* ------------------------------------------------------------------ */
/*
 **  Returns the number of tags of a given type in a vgroup
 **  related: Vnrefs--vnrefs--
 */

intf
nvnrefs(intf *vkey, intf *tag)
{
    return (intf)Vnrefs((int32)*vkey, (int32)*tag);
} /* end nvnrefs() */

/* ------------------------------------------------------------------ */
/*
 **  Return the ref of this vgroup
 **  related: VQueryref--vqref--
 */

intf
nvqref(intf *vkey)
{
    return (intf)VQueryref((int32)*vkey);
} /* end nvqref() */

/* ------------------------------------------------------------------ */
/*
 **  Return the ref of this vgroup
 **  related: VQuerytag--vqtag--
 */

intf
nvqtag(intf *vkey)
{
    return (intf)VQuerytag((int32)*vkey);
} /* end nvqtag() */

/* ------------------------------------------------------------------ */

/*
 **  returns all the tag/ref pairs in a vgroup
 **  related: Vgettagrefs--vgttrsc--vfgttrs
 */

intf
nvgttrsc(intf *vkey, intf *tagarray, intf *refarray, intf *n)
{
    return (intf)Vgettagrefs(*vkey, (int32 *)tagarray, (int32 *)refarray, *n);
}

/* ------------------------------------------------------------------ */
/*
 **  returns a specified tag/ref pair in a vgroup
 **  related: Vgettagref--vgttrc--vfgttr
 */

intf
nvgttrc(intf *vkey, intf *which, intf *tag, intf *ref)
{
    return (intf)Vgettagref(*vkey, *which, (int32 *)tag, (int32 *)ref);
}
/* ------------------------------------------------------------------ */

/*
 **  tests if a tag/ref pair is in a vgroup.
 **  related: Vinqtagref--vinqtrc--vfinqtr
 */

intf
nvadtrc(intf *vkey, intf *tag, intf *ref)
{
    return (intf)Vaddtagref(*vkey, *tag, *ref);
}
/* ------------------------------------------------------------------ */

/*
 **  checks the number of elements in a vgroup
 **  related: VSQuerycount--vsqfnelt
 */

intf
nvsqfnelt(intf *vkey, intf *nelt)
{
    int32 ret_nelt = 0;
    int   stat;

    stat = VSQuerycount((int32)*vkey, &ret_nelt);

    *nelt = (intf)ret_nelt;
    return (intf)stat;
}
/* ------------------------------------------------------------------ */

/*
 **  checks the interlace of a vgroup
 **  related: VSQueryinterlace--vsqfintr
 */

intf
nvsqfintr(intf *vkey, intf *interlace)
{
    int32 ret_inter = 0;
    int   stat;

    stat = VSQueryinterlace((int32)*vkey, &ret_inter);

    *interlace = (intf)ret_inter;
    return (intf)stat;
}
/* ------------------------------------------------------------------ */

/*
 **  gets the names of the fields of a vgroup
 **  related: VSQueryfields--vsqfflds
 */

intf
nvsqfldsc(intf *vkey, _fcd fields, intf *fieldslen)
{
    char *fld;
    intf  ret;

    fld = HDf2cstring(fields, (int)*fieldslen);
    if (!fld)
        return FAIL;
    ret = (intf)VSQueryfields((int32)*vkey, fld);
    free(fld);

    return ret;
}
/* ------------------------------------------------------------------ */

/*
 **  checks the size of an element of a vgroup
 **  related: VSQueryvsize--vsqfvsiz
 */

intf
nvsqfvsiz(intf *vkey, intf *size)
{
    int32 ret_size = 0;
    int   stat;

    stat = VSQueryvsize((int32)*vkey, &ret_size);

    *size = (intf)ret_size;
    return (intf)stat;
}
/* ------------------------------------------------------------------ */

/*
 **  gets the names of a vgroup
 **  related: VSQueryname--vsqfname
 */

intf
nvsqnamec(intf *vkey, _fcd name, intf *namelen)
{
    char *nam;
    intf  ret;

    nam = HDf2cstring(name, (int)*namelen);
    if (!nam)
        return FAIL;
    ret = (intf)VSQueryname((int32)*vkey, nam);
    free(nam);

    return ret;
}

/* ------------------------------------------------------------------ */
intf
nvsfccpk(intf *vs, intf *packtype, _fcd buflds, intf *buf, intf *bufsz, intf *nrecs, _fcd pckfld, _fcd fldbuf,
         intf *buflds_len, intf *fld_len)
{
    char *flds_in_buf;
    char *afield;
    intf  ret;
    void *fldbufpt[1];

    flds_in_buf = HDf2cstring(buflds, (int)*buflds_len);
    if (!flds_in_buf) {
        return FAIL;
    }
    afield = HDf2cstring(pckfld, (int)*fld_len);
    if (!afield) {
        free(flds_in_buf);
        return FAIL;
    }
    if (*flds_in_buf == '\0') {
        free(flds_in_buf);
        flds_in_buf = NULL;
    }
    if (*afield == '\0') {
        free(afield);
        afield = NULL;
    }
    fldbufpt[0] = _fcdtocp(fldbuf);
    ret = VSfpack((int32)*vs, (int)*packtype, flds_in_buf, (void *)buf, (int)*bufsz, (int)*nrecs, afield,
                  fldbufpt);

    free(flds_in_buf);
    free(afield);

    return ret;
}

/* ------------------------------------------------------------------ */
intf
nvsfncpk(intf *vs, intf *packtype, _fcd buflds, intf *buf, intf *bufsz, intf *nrecs, _fcd pckfld,
         intf *fldbuf, intf *buflds_len, intf *fld_len)
{
    char *flds_in_buf;
    char *afield;
    intf  ret;
    void *fldbufpt[1];

    flds_in_buf = HDf2cstring(buflds, (int)*buflds_len);
    if (!flds_in_buf) {
        return FAIL;
    }
    afield = HDf2cstring(pckfld, (int)*fld_len);
    if (!afield) {
        free(flds_in_buf);
        return FAIL;
    }
    if (*flds_in_buf == '\0') {
        free(flds_in_buf);
        flds_in_buf = NULL;
    }
    if (*afield == '\0') {
        free(afield);
        afield = NULL;
    }
    fldbufpt[0] = fldbuf;
    ret = VSfpack((int32)*vs, (int)*packtype, flds_in_buf, (void *)buf, (int)*bufsz, (int)*nrecs, afield,
                  fldbufpt);

    free(flds_in_buf);
    free(afield);

    return ret;
}

/*
 **  C-stub for deleting a tag/ref pair in a vgroup.
 **  related: called by vfdtr() and calls Vdeletetagref(),
 **
 */

intf
nvdtrc(intf *vkey, intf *tag, intf *ref)
{
    return (intf)Vdeletetagref(*vkey, *tag, *ref);
}

/*------------------------------------------------------------------------
 *       Name:      vscfcls
 *       Purpose:   calls VSfindclass
 *       Inputs:    id    -  file ID
 *                  name  -  class of vdata to find
 *       Returns:   returns 0 if not found, or error. Otherwise, returns
 *                  the vdata's ref number (a positive integer)
 *       Related functions: vffcls, VSfindclass
 *       Users:     HDF Fortran programmers
 ---------------------------------------------------------------------*/
intf
nvscfcls(intf *id, _fcd name, intf *namelen)
{
    intf  fi_id;
    intf  ret;
    char *class_name;

    fi_id      = *id;
    class_name = HDf2cstring(name, (int)*namelen);
    if (!class_name)
        return FAIL;

    ret = VSfindclass(fi_id, class_name);
    free(class_name);
    return ret;
}
/*------------------------------------------------------------------------
 *       Name:      vscsetblsz
 *       Purpose:   calls VSsetblocksize
 *       Inputs:    id    -  vdata identifier
 *                  block_size - size of the block
 *       Returns:   0 if succeeds, -1 if fails
 *       Users:     HDF Fortran programmers
 ---------------------------------------------------------------------*/
intf
nvscsetblsz(intf *id, intf *block_size)
{
    intf ret = -1;
    int  c_ret;

    c_ret = VSsetblocksize(*id, *block_size);
    if (c_ret == 0)
        ret = 0;
    return ret;
}
/*------------------------------------------------------------------------
 *       Name:      vscsetnmbl
 *       Purpose:   calls VSsetnumblocks
 *       Inputs:    id    -  vdata identifier
 *                  num_blocks - number of blocks
 *       Returns:   0 if succeeds, -1 if fails
 *       Users:     HDF Fortran programmers
 ---------------------------------------------------------------------*/
intf
nvscsetnmbl(intf *id, intf *num_blocks)
{
    intf ret;
    int  c_ret;

    c_ret = VSsetnumblocks(*id, *num_blocks);
    if (c_ret == 0)
        ret = 0;
    return ret;
}
/*------------------------------------------------------------------------
 *       Name:      vscgblinfo
 *       Purpose:   calls VSgetblockinfo
 *       Inputs:    id    -  vdata identifier
 *                  block_size - size of the block
 *                  num_blocks - number of blocks
 *       Returns:   0 if succeeds, -1 if fails
 *       Users:     HDF Fortran programmers
 ---------------------------------------------------------------------*/
intf
nvscgblinfo(intf *id, intf *block_size, intf *num_blocks)
{
    intf  ret = -1;
    int   c_ret;
    int32 c_block_size;
    int32 c_num_blocks;

    c_ret = VSgetblockinfo(*id, &c_block_size, &c_num_blocks);
    if (c_ret == 0) {
        *block_size = c_block_size;
        *num_blocks = c_num_blocks;
        ret         = 0;
    }
    return ret;
}
/*------------------------------------------------------------------------
 *       Name:      vcgvgrp
 *       Purpose:   calls Vgetvgroups
 *       Inputs:    id       - vdata identifier
 *                  start_vg - size of the block
 *                  vg_count - number of blocks
 *       Outputs:   refarray - Array to hold reference numbers
 *                             of retrieved vgroups
 *       Returns:   0 if succeeds, -1 if fails
 *       Users:     HDF Fortran programmers
 ---------------------------------------------------------------------*/
intf
nvcgvgrp(intf *id, intf *start_vg, intf *vg_count, intf *refarray)
{
    intf     ret = -1;
    unsigned ii;
    uint16  *c_refarray;

    if (*vg_count == -1) {
        ret = (intf)Vgetvgroups((int32)*id, (unsigned)*start_vg, 0, NULL);
    }
    else {
        c_refarray = (uint16 *)malloc(sizeof(uint16) * (unsigned)*vg_count);
        ret        = (intf)Vgetvgroups((int32)*id, (unsigned)*start_vg, (unsigned)*vg_count, c_refarray);

        /* copy C refarray to the fortran refarray, converting uint16 to intf type */
        for (ii = 0; ii < (unsigned)*vg_count; ii++)
            refarray[ii] = (intf)c_refarray[ii];

        free(c_refarray);
    }
    return ret;
}
/*------------------------------------------------------------------------
 *       Name:      vscgvdatas
 *       Purpose:   calls  VSgetvdatas
 *       Inputs:    id       - File identifier returned by Hopen or vgroup
 *                             identifier returned by Vattach
 *                  start_vd - Vdata number to start retrieving at
 *                  vd_count - Number of vdatas to be retrieved
 *       Outputs:   refarray - Array to hold reference numbers of
 *                             retrieved vdatas
 *       Returns:   0 if succeeds, -1 if fails
 *       Users:     HDF Fortran programmers
 ---------------------------------------------------------------------*/
intf
nvscgvdatas(intf *id, intf *start_vd, intf *vd_count, intf *refarray)
{
    intf     ret = -1;
    unsigned ii;
    uint16  *c_refarray;

    if (*vd_count == -1) {
        ret = (intf)VSgetvdatas((int32)*id, (unsigned)*start_vd, 0, NULL);
    }
    else {
        c_refarray = (uint16 *)malloc(sizeof(uint16) * (unsigned)*vd_count);
        ret        = (intf)VSgetvdatas((int32)*id, (unsigned)*start_vd, (unsigned)*vd_count, c_refarray);
        /* copy C refarray to the fortran refarray, converting uint16 to intf type */
        for (ii = 0; ii < (unsigned)*vd_count; ii++)
            refarray[ii] = (intf)c_refarray[ii];

        free(c_refarray);
    }

    return ret;
}
